Public Class EditNameCtrl
    Implements NamesEditor.INavigationControl

    Public Event NavigateToEvent(ByVal sender As System.Windows.Forms.UserControl, ByVal request As NavigationRequest) Implements INavigationControl.NavigateToEvent

    Private _detailsDs As New DataTable

    Private Sub EditNameCtrl_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Me.Tag = "Edit Name"

    End Sub

    Public Sub LoadName(ByVal nameId As Guid)

        Dim n As TaxonNamesInterface.Name = NamesClient.NamesInterfaceProxy.GetName(nameId)
        TaxonNameCtrl1.Initialise(n)

        Dim cList As List(Of TaxonNamesInterface.Concept) = NamesClient.NamesInterfaceProxy.GetNameConcepts(nameId)
        Dim crList As List(Of TaxonNamesInterface.ConceptRelationship) = NamesClient.NamesInterfaceProxy.GetNameConceptRelationships(nameId, False)

        ConceptsCtrl1.Initialise(cList, crList)

    End Sub
End Class
